home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Co-Cz / Cursor.cpt / Cursor Install / card_3008.txt < prev    next >
Text File  |  1990-07-24  |  4KB  |  158 lines
  1. -- card: 3008 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2675
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 81
  10. -- high flags: 0007
  11. -- rect: left=3 top=149 right=341 bottom=508
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: help
  20. ----- HyperTalk script -----
  21. on mouseDown
  22.   hide cd fld "help"
  23. end mouseDown
  24.  
  25.  
  26.  
  27. -- part 3 (button)
  28. -- low flags: 80
  29. -- high flags: 8003
  30. -- rect: left=0 top=170 right=199 bottom=112
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: General Install
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   set cursor to watch
  42.   put "Please select the source stack"
  43.   put GetStackName() into sourceStack
  44.   if sourceStack is empty then
  45.     put ""
  46.     hide msg
  47.     exit mouseUp
  48.   end if
  49.  
  50.   put "Now select the destination stack"
  51.   put GetStackName() into destinationStack
  52.   if destinationStack is empty then
  53.     put ""
  54.     hide msg
  55.     exit mouseUp
  56.   end if
  57.   set cursor to watch
  58.   CopyOver sourceStack, destinationStack
  59.   if the result is not empty then
  60.     put the result into temp
  61.   else
  62.     put ""
  63.     hide msg
  64.   end if
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=44 top=121 right=150 bottom=75
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 32462 / 32462
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: help
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   set the scroll of cd fld "help" to 0
  84.   show cd fld "help"
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 5 (button)
  90. -- low flags: 00
  91. -- high flags: 8003
  92. -- rect: left=4 top=78 right=110 bottom=194
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Install cursors in  a stack
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   set cursor to watch
  104.   put GetStackName() into destination
  105.   if destination is empty then exit mouseUp
  106.   put ""
  107.   hide msg
  108.   get word 2 of the long name of this stack
  109.   put it into source
  110.   put it into copy
  111.   get offset (":", source)
  112.   repeat until offset (":", copy) is 0
  113.     get offset(":", copy)
  114.     put "#" into char offset(":", copy) of copy
  115.   end repeat
  116.   -- Custom Cursor is the name of the stack containing the XCMDs XFCNs etc
  117.   put "Custom_Cursor" & quote into char (it +1) to (the length of source) of source
  118.   put source && Destination
  119.   CopyOver source, destination
  120.   if the result is not empty then
  121.     put the result
  122.     beep
  123.   else
  124.     push cd
  125.     go destination
  126.     if the result is empty then
  127.       get the script of this stack
  128.       if it contains "on closeStack" then
  129.         repeat with n = 1 to the number of lines of it
  130.           if line n of it contains "on closeStack" then
  131.             put return & "killslug" & return & "killCursor" after line n of it
  132.             exit repeat
  133.           end if
  134.         end repeat
  135.       else
  136.         put "on closeStack" & return & "killslug" & return & "killCursor" & return & "end closeStack" & return before it
  137.       end if
  138.       set the script of this stack to it
  139.       --here you could add any scripts to the home stack etc.
  140.     end if
  141.     pop cd
  142.   end if
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part contents for card part 2
  148. ----- text -----
  149. This stack installs the routines necessary for the custom cursors in a stack which you select. The routines are stored  in the Custom_cursor stack. It should be in the same folder as this stack. To install them simply press the
  150.  "Install cursors in a stack" button. An error message will be returned in the message box if the transfer was not completed. If the error is due to anything besides low  disk space, low memory, or locked disks please inform me of the error.
  151.  
  152.  Enjoy!
  153. Dave Waddell.
  154. 918 Second Street SW
  155. Rochester, MN 55902
  156. USA
  157. email: waddell@mayo.edu
  158. CIS: 71020,443